module Test where

-- (>>=) :: [a] -> (a -> [b]) -> [b] 

test xs f = (>>=) xs f
